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FACILITY: LINKER 
ABSTRACT: SYMBOL TABLE SEARCH AND INSERT 
HISTORY: 
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Zero hashtable before use for module local syanels 


3 1 001 MODULE LNK_SYMSERINS (IDENT eer une : 
; g 9 ; ADDRESSING OfOSE (EXTERNAL=GENERAL,, ; 
3 NONE XTERNAL=LONG_RELATIVE) 5 
: 4 004 )= ; 
3 5 iF 3 
hoon ae 1m : 
; § 008 | | : 
3 1% 0009 i Fe a ancat deste toes” een cea ae ee ae ; 
3 '® * 3 
; 11 OO13 1 !'® COPYRIGHT (c) 1978, 1980, 1982, 1984 6 * 3 
; \¢ 8 \g 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * é 
; F Splz : - ALL RIGHTS RESERVED. * : 
° . ie g 
$ 15 0015 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gor iee * ; 
3 16 8218 1 '® ONLY IN ACCORDANCE WITH THE A one OF SUCH parts SE AND WITH THE * $ 
3 17 001 1 !* INCLUSION OF a & or E Le ee iiee OTICE. THIS SOFTWARE OR ANY OTHER ® é 
3 18 8918 1 !* COPIES THEREOF MAY NOT BE PROV IDED OR OTHERWISE MADE AVAILABLE TO ANY * $ 
: 19 001 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
; 20 9020 ie TRANSFERRED. ® ; 
2 Ie os Pi) 
; $$ 0092 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® é 
: 2 00 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $e o5 ¢ ! ws CORPORATION. * 
3 it sd 
3 !® U L LITY * 

26 00 1! DIGITAL ASSUMES NO RESPONSIB'LITY FOR THE USE OR RELIABILITY OF ITS 
$ e7 00 1 !® SOFTWARE ON EQUIPMENT WHICH .S NOT SUPPLIED BY DIGITAL. * 
BBB 
° ar 
: 50 008 } WETTITIIILITI LILI LLL LLL LLL LLL LLL LL LLL LLL LiL tli iitlit it 
3 32 0032 1 
2 Rey 
3 35 Opes : a 
: 7 std 1 
3 8 0038 #1 MODULE: LNK_SYMSERINS 
: 39 0039 1 
; 40 0 1 
g } 
: rk 1 
: 46 1 
3 é : 
; 1 
3 1 
3 1 
$ 1 
A 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 


4 

4 5 

: § VERSION: x01.00 

$8 3 AUTHOR: T.J. PORTER 18-FEB-77 

20 “9 MODIFIED BY: 

iH 53 v03-002 JwT0062 Jim Teague 22-0 t-1982 

:7 34 Replaced symbol hashing algorithm. 

i 36 v03-001 JwT0031 Jim Teague 25-May-1982 
5 
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v04= 


ab at a 


132-188 00:86:83 YMEGIL OL fase 82 veege7ag, 


v03-003 BLS0090 Benn Schreiber 31-0¢ t-1981 
Add LNKSSEARCHLOCAL routine 

v03-002 8LS0025 Benn Schreiber 10-Nov-1980 
Enhancements to shareable images. 

v03-001 8.S0007 Benn Schreiber, 3-Jun-1980 


Convert to MDL data structures. 
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ee --- 4 


F 15 


LNK_SYMSERINS “Se 4 00:3 AX-11 Bliss-32 V4.0 Page 3 
WOa=800 et ae ts Re et CE TT PP 9 023 
: 68 67 1! 

a: By 

; 4 O76 | FUNCTIONAL DESCRIPTION: 

: ig Ore 13 THIS MODULE CONTAINS THE SYMBOL TABLE SEARCH AND INSERT 

: 7% 73 15 ROUTINES. THE SYMBOL TABLE IS A HASH 

: 75 0 met TABLE USING A CHAIN OF ALTERNATES WHEN COLLOSIONS OCCUR. 

; 75 1! ABLE CONSISTS OF SYM$C_TBLSIZ CONTIGUOUS DESCRIPTORS 

te 2 1) EACH DESCRIPTOR CONTAINS A POINTER WHICH IS THE HEAD OF 

: 78 077 1: A SINGLY LINKED LIST, USED IF A COLLISION OCCURS ON 

oe O78 1/ THAT ENTRY. MULTIPLE COLLISIONS ARE INSERTED IN THIS LIST, 

: 80 79 13 HE LAST HAVING A ZERO POINTER. 

: 81 0080 1! THE COLLISION LIST ENTRIES ARE ALLOCATED (BY INSERT) FROM 

; Ht itd : DYNAMIC MEMORY. 

: 84 ao8s 1) THE CALLING SEQUENCES ARE: 

>: 85 084 1! NKSSEARCH (TARGSYMBOL, DESCRADR, SNBADR) 

> 86 6085 1: tNKSINGERT (TARGSYMBOL, DESCRADR, SNBAD 

: 87 0086 1: LNKSSEARCHLOCAL (TARG SyABOL ENVINDEX OE SCRADR SNBADR, ENVDESCADR) 
>; «88 0087 1! WHERE: TARGSYMBOL Is THE § OF AN ASCII STRING TO 

; 89 008 BE FOUND one ONSERTE D. 

: 91 0090 1: DESCRADR 1S THE ADDRESS OF CELL TO STORE THE ADDRESS 

; 3 0091 OF A FOUND ENTRY OR ADDRESS OF AN INSERTED ENTRY. 

: 94 0093 1: SNBADR IS THE ADDRESS OF A CELL TO STORE THE pADDRESS 

> 95 0094 1! OF A FOUND ENTRY SYMBOL NAME BLOCK OR THE ADDRESS 

: 96 0095 OF THE SYMBOL NAME BLOCK IF THE ENTRY WAS IASERTED. 

: 98 0097 1: SEARCH HAS THE VALUE TRUE IF THE SYMBOL WAS FOUND, 

; 33 0098 1 | FALSE IF NOT. 

: 101 0100 1: CALLS TO INSERT MUST BE PRECEDED ey of’ UNSUCCESSFUL 

; 108 0101 1! SEARCH CALL, IN THIS CASE INEORMATI § 

: 10 108 1: RECORDED TO Ate ANOTHER SEARCH t+ ND 

> 104 0103 1! DESCRADR IS RETURNED WITH THE ADDRESS OF THE DESCRIPTOR 

105 0104 : WHICH HAS THE STRING COPIED INTO IT 

: 109 0106 HASH VALUE H = SUM OF CHARACTERS, DIVIDED BY THE TABLE SIZE. 

i 1% ei 

> 111 110 1 LIBRARY 

: 118 111 "STARLETL32': 

: 11 1 1 REQUIRE 

> 114 113 1 "PREFIX; ! GET GENERAL DEFINITIONS 
; 115 3 1 LIBRARY 

; 116 ; "DATBAS’; ' LINKER DATA STRUCTURES 

; 118 & EXTERNAL RO TINE 

> 11 é 1 ALLOBLK ! DYNAMIC MEMORY ALLOCATOR 
: i 9 1 LNKSENDENVMAP; i FIND ENVIRONMENT MAPPING TABLE ENTRY 
cs. 5 1 LITERAL 

: 126 1 THIRTEEN = 13; 


LNK_SYMSERINS gfe “520-1984 K-11 Bliss-32 v4.0 Pece 5 
vous 1ergeP~ 138s 99:28:95 HOt hesr ae Mae er 7880. 4 v 23 
EXTERNAL LITERAL 

SYMSC_ALLOBLK : BYTLIT; | NUMBER OF PAGES TO PREALLOCATE 

SYMENTRY : REF BLOCKC.BYTE): ' CURRENT SYMBOL ENTRY 


LNKSGL_SYMALLOC : VECTORC2 LONG] ! SIZE AND POINTER TO PREALLOCTED TABLE 
SYMScL “HASHTBL : REF VECTORCSYMS$C_TBLSIZ,LONG]; ! THE HASH TABLE FOR SYMBOLS 
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TARGSYMBOL : REF VECTORC, BYTE); 
BUILTIN 
ROT 


14-Sep-19 LINKER. SRCJLNKSYMTBL .B32;1 

135 GLOBAL ROUTINE LNKSSEARCH (TARGSYMBOL, DESCRADR, SNBADR) = 

BEGIN 

i TARGSYMBOL IS ADDRESS OF AN ASCIC STRING 

i DESCRADR IS ADDRESS OF CELL TO RECEIVE THE ENTRY 

i ADDRESS IF SYMBOL IS IN TABLE 

i ADR IS ADDRESS OF CELL TO RECEIVE THE SYMBOL NAME BLOCK 

ADDRESS IF SYMBOL IS IN TABLE 

MAP 

' 


. 
° 


REGISTER 


HASHINDEX; 
‘ LOCAL 
LEFTOVER 
LONGWORDS, 
CH_RESULT, 
PREVENTRY, 
POINTER; 
COMPUTE THE HASH INDEX AND GET ENTRY ADDRESS 
HASHINDEX = .TARGSYMBOL[O); ! INITIALIZE THE HASH VALUE 
LEFTOVER = .HASHINDEX AND 3: 
LONGWORDS = sHASHINDEX a 2; 
POINTER TARGSYMBOL(1); ! SET CHARACTER POINTER TO INCLUDE STRING LENGTH 


= 
I FROR | TO .LONGWORDS DO 
HASHINDEX = ..POINTER XOR .HASHINDEX; 


POINTER = .POINTER + 4 
HASHINDEX = ROT (.HASHINDEX ,NINE); 


ND; 
INCR I FROM 1 TO .LEFTOVER DO 
BEGIN 


HASHINDEX = CHSRCHAR_A(POINTER) XOR .HASHINDEX; 
Pate = ROT ( .HASHINDEX, THIRTEEN); 


10909 C909 SINISE SN AA AAA AAA AA MMIII & 


HASHINDEX = (.HASHINDEX AND ZX'7FFFFFFF") MOD SYMSC_TBLS!Z; ! THEN TAKE MODULO TABLE SIZE 
SYMENTRY = (SYMSGL_HASHTBLE.HASHINDEX) ; | GET ADDRESS OF HASH TABLE ENTRY 
IF .SYMENTRYCSNBSL-COLISTJ EQL 0 

THEN RETURN FALSE 

ELSE BEGIN 

PREVENTRY = .SYMENTRY; ! REMEMBER PREVIOUS 

SYMENTRY = .SYMENTRYLSNBSL_COLIST); i POINT TO THE FIRST ENTRY 


COMPARE THE SYMBOL IN THE 
ENTRY FOR A MATCH, IF IT MATCHES RETURN ENTRY 
ADDRESS AND SUCCESS CONDITION. 
Met untie NOT MATCH SEARCH DOWN THE COLLISION 


SOQOOOOOOOCOOCOOSSOSOOOOOOSOOOOSOCSOO SOOO OOOSOOSCOOSOOSOOOOOOOOOOOOOO 


a a ee ee ee ee ee ee ee ee ee ee ee ee eee ee 
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: 198 4 3! 1, FIND A MATCH = RETURN THE ADDRESS OF MATCHED : 
: 19 5 Zi ENTRY AND SUCCESS ; 
: 19% 6 i 2. REACH END OF LIST. SAVE ADDRESS OF LAST ; 
: 195 0 i ENTRY IN LIST FOR POSSIBLE SUBSEQUENT ; 
; 196 98 INSERT AND RETURN FAILURE. ; 
: 198 10 4 DO IF (CH RESULT = CHSCOMPARE(.TARGSYMBOLCO], TARGSYMBOLC1], ! COMPARE SYMBOLS : 
> 199 11 3 .SYMENTRYCSNBSB_NAMLNG], SYMENTRYLSNBST NAME)» EQL ; 
; 200 1g 4 THEN BEGIN ' HES ; 
H so) 031 4 -DESCRADR = .SYMENTRY + .SYMENTRYCSNBSB -NARLNG) ‘, snase A iat ; 
3 oe 0314 4 ~SNBADR = .SYMENTRY; “a BLOCK ‘ 
: 20 : 15 4 i AND- VALUE BLOCK ADDRESSES : 
3 04 1 4 isan TRUE; i AND RETURN SUCCESS ° 
: 8 6 18 ¢ 
: 207 : 19 4 UNTIL (IF .CH_RESULT LSS 0 ! OTHERWISE, QUIT IF PAST THE SPOT : 
> 208 ; 0 THEN BEGIN : 
s +4 83 1 + + gies = .PREVENTRY; ' RESET POINTER TO INSERT SPOT ‘ 
: 211 03 : 3 END ; 
: 12 0324 ELSE BEGIN F 
3 1 0325 5 PREVENTRY = .SYMEN ' SAVE PREVIOUS 

> 214 0 6 5 IF VEVNENTRYESNBS COL IST) EQL 0 ! IF AT END OF LIST 

> 215 0 5 HEN TRUE 

: 216 0 8B 6 ELSe BEGIN 

3 i 0 4 ? i Me ew = .SYMENTRY CSNBSL_COLISTJ; ! LINK TO NEXT 

: 219 0331 6 END 

: 220 033¢ ¢ END 

; 321 033 ); 

; 3¢ 0334 ! END OF THE COLLISION LIST. 

; ede 0335 RETURN FALSE; ' THE LAST ENTRY EXAMINED 

3 226 0336 i IS PRESERVED IN SYMENTRY. 

: 225 033 END; ' END OF NON-0 HASH TABLE ENTRY 

; 226 0338 1 END; ' END OF SEARCH ROUTINE 


~TITLE LNK nd - ate 
IDENT \v0%-000 


-PSECT SOWNS,NOEXE,2 


00000 SYMENTRY: 
~BLKB 4 


-PSECT SGLOBALS,NOEXE,2 
00000 LNKSGL_SYMALLOC:: 


-BLKB 8 
00008 SYMSGL HASHTBL: : 
-BLKB 


& 


-EXTRN LNKSALLOBLK, LNKSFNDENVMAP 
“EXTRN SYMSC_ALLOBLK 


-PSECT SCODES.NOWRT,2 


3; Routine Size: 172 bytes, Routine Base: S$CODE$S + 0000 


15 
LNK_SYMSERINS 1b-Se -1984 00:36: AX-11 Bliss-32 V4.0-74 Page L 
V04= 12-8681 382 99:38:46 YMINKER SRe LNKSYMTBL.B32;1 9 V 
07FC 00000 .ENTRY LNKSSEARCH, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; ; 
3A 00000090" EF ge 4 MOVAB SYMENTRY, R10 : 3 
4 g A MOV ZBL QTARGS YMBOL . HASHINDEX : ; 
54 59 0 ai EXTZV. #0, #2, HASHINDEX, LEFTOVER : ; 
FE BF : 01 ASHL  #=0, HASHINDEX, LONGWORDS : ; 
3 04 aC p 1 MOVL TARGSYMBOL : : 
2 1 A? 9E 0001B MOVAB 1(R7), POINTER : ; 
51 04 OOOTF CLRL : ; 
07 11 | BRB $ : ; 
50 ge 0023 1$: XORL2 (POINTER)+, HASHINDEX : ; 
59 30 9 g 00 3 ROTL #9, HASHINDEX, HASHINDE% : ; 
F 1 F A 28: AOBLEQ LONGWORDS, I, 1$ : : 
51 D4 000 CLRL I ; 3 
OA 11 000 BRB 4$ : ; 
53 : 9A 00032 3S: MOV ZBL (POINTER)+, R3 : ; 
50 5 g¢ 00 ORL2 3, HASHINDEX : 3 
50 50 gD ‘ 0038 OTL #18, HASHINDEX, HASHINDEX : ; 
F2 51 4 F3 0003C 4$: AOBLEQ LEF Foy R, I : ; 
50 50 iF 00 EF 0040 EXTZ2V #0, #31, HASHINDEX, HASHINDEX : : 
7€ 00 50 01 7A 0004 MUL §_ #1. HASHINDEX, #0, =(SP : 3 
50 50 BE 00000115 8F 7B O004A EDIV #277, (SP)+, HASHINDEX, HASHINDEX : ; 
6A 00000000'FF40 DE 00053 MOVAL a@SYM$GL_HASHTBLLHASHINDEX], SYMENTRY : 3 
50 6A DO 00058 MOVL SYMENTRY, RO : ; 
60 D 0056 TSTL (RO) : 3 
47 13 0006 BEQL 4 6:9$ : 3 
58 50 D0 9062 MOVL RO, PREVENTRY : ; 
6A 60 DO 0006 MOVL (RO), SYMENTRY : ; 
50 04 BC 9A 00068 SS: MOVZBL @TARGSYMBOL, RO : : 
54 6A DO 0006C MOVL  SYMENTRY, R& : : 
55 046 AG OA O06 MOVZBL 4(R4), R5 F : 
56 gi DO 00073 OVL #1, R : ; 
55 00 01 A? = 30 20 0076 CMPCS RO. 1(R7), #0, RS, 5(R4) : 3 
03 1A 0007E BGTRU 6$ : ; 
56 1 09 9080 SBWC OO O#1, RG : 3 
59 6 DO 00083 6$: MOVL § R6, CH_RESULT : 3 
0€ 1 0086 BNEQ : 3 
08 BC 05 A544 9E 000 MOVAB 5(RS5)CR4], @DESCRADR : 3 
0c BC 54 D 08 MOVL 4, @SNBADR : ; 
50 01 0 MOVL #1, RO : 3 
4 0009 RET ; : 
5 %6 7$: BGEQ = -&$ ; : 
6A 8 p 9 MOVL §PREVENTRY, SYMENTRY : 3 
C 98 BRB : ; 
58 4 DO 00090 8$: MOVL 4, PREVENTRY : 3 
64 OD OA TSTL (rd) ; : 
05 1 A BEQL 6-9 : : 
6A 64 p OA MOVL  (R4), SYMENTRY ; : 
ef OA BRB 5$ : : 
0 D4 000A9 9S: CLRL = RO : 3 
4 O00AB RET : : 


K 15 

LNNK_SYMSERINS 16-Sep-1984 00:36: AX-11 Bliss-32 V4.0-7 Page 8 L 
v04=060 12-808-13be 99:38:46 LINKER. SRCJLNKSYMTBL. 3 2;1 . (4) V 
; 8 39 1 GLOBAL ROUTINE LNKSINSERT(TARGSYMBOL, DESCRADR, SNBADR) : NOVALUE = : 
; 4 40 BEGIN ; 
; 1 43 TARGSYMBOL IS ADDRESS OF AN ASCIC STRING, AN ENTRY : 
; ¢ 4 i FOR WHICH IS TO BE INSERTED IN THE SYMBOL TABLE. THE ; 
: 44 i AD RESS OF tals ENTRY IS TO BE RETURNED IN THE CELL : 
3 0345 ‘ DESCRADR. THE ADDRESS OF THE SYMBOL NAME BLOCK IS RETURNED ; 
$ 5 034 i ELL POINTED TO BY SNBADR. THIS ROUTINE REQUIRES THAT ; 
; 034 ' AN UNSUCCESSFULL CALL ON SEARCH PRECEDED IT AND SAVED THE ; 
; 7 034 i ADDRESS OF THE LAST ENTRY EXAMINED. ; 
He BES Bk ; 
; 240 6 29 TARGSYMBOL : REF VECTORC, BYTE): : 
: 241 26 LOCAL 3 
3: 26 035 BLOCKSIZE, ; 
; NEWENTRY LOCKC,BY : 

3 4 2$ EWENTRY : REF BLOCKC,BYTE); ; 
: 245 0356 BLOCKSIZE = (SYMSC S17E+sNasC FXDLEN+. TARGSYMBOL(OJ + 3) AND NOT 3; F 
3 $e Beef Thel BegIN SYMALLOC LEQU .BLOCKSIZE : 
3; 248 0359 NKSALLOBLK (SYM$C_ALLOBLK*512, -LNKSGL gYMALLOCE1); ; 
; 4 toe LNKSGL =SYMALLOCCOJ = SYMSC_ALLOBLK*5T2; : 
: 251 036¢ NEWERTRY = -LNKSG =SYMALLOCC1] F 
; ¢ 036 LNKS$GL ~SYMALLOCEO .LNKSGL -SVMALLOCEO} - -BLOCKSIZE; ! ALLOCATE A BLOCK ; 
: 32 0364 LNKSGL~ erattie = [LNKSGL~SYMALLOCL1 ~BLOCKSIZE: : 
3: 254 0365 ! WHICH CONSISTS OF : 
: 255 0366 ' SYMBOL VALUE BLOCK + 3 
: 226 036 ' SIZE OF NAM : 
: 257 0368 | + NAME BLOCK OVERHEAD 3 
; 258 0369 NEWENTRYCSNBSL_COL tS = » SYMENTRYCSNBSL_ COLIST); ' LINK INTO THE : 
: 259 0370 SYMENTRYCSNBSL_COLIST] = .NEWENTR ' LINK IT ON TO COLLISION LIST : 
; “et S37) SYMENTRY = NEGENTR Y; ! AND REPLACE OLD POINTER : 
; 262 0378 i HAVE AN EMPTY DESCRIPTOR = COPY IN THE SYMBOL 3 
Bog ca | ect : 
3 265 0376 CHSMOVE (. TARGSYMBOL C081 esas oe) ' COPY NAME 3 
> 266 037 SYMENTRYCSNB$B_NAMLNG)); i (NO EXTRA BYTES IN NAME) 3 
3; 267 0378 .SNBADR = .SYMEN ' RETURN SYMBOL NAME BLOCK ADDRESS : 
; 268 0379 2 SYMENTRY = .SY ENTRY . .TARGSYMBOLCO] + SNBSC_FXDLEN; ! POINT TO SYMBOL VALUE BLOCK : 
3 269 0380 2 CHS EMTRVES Ina SYMSC asize SYMENTRY); ' ZERO THE ENTRY : 
: 270 0381 2 SYMENTR SY LNG} = .TARGSYMBOLCO); i SET LENGTH INTO VALUE BLOCK : 
>: 271 0389 .DES ae eatin i RETURN ITS ADDRESS 3 
3 a RETURN; i AND THAT'S 3 
: 27 0384 1 END; | OF INSERT ROUTINE. : 


O3FC 00 .ENTRY LNKSINSERT, Save R2,R3,R4,R5,R6,R7,R8,.R9  ; 0339 
9 90000000" EF 9€ 0000 MOVAB  LNKS$GL YMA C, R : 
3 0 ' EF 9€ MOVAB SYMEN R ; 
vs BC 9A 00010 MOVZBL a@TAR Ms L, R7 : 0356 
0 C A? 99E 00014 ROVAB 44(R7), R : 
52 03 CB 00018 BICL3 #3, RO. BLOCKSIZE : 


es ——— 4 


LNK_SYMSERINS 
042800 


; Routine Size: 


000000006 


04 
00 


52 


0 
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6€ 


Routine Base: 


—o 
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ANAOWAOOo 


SCODES + OOAC 


6c 12:08:89 — EMTenssmeSinks¥miec -082; 1 


LNKSGL_SYMALLOC, BLOCKSIZE 


PUSHAB LNKSGL SYMALLOC+4 
PUSHL #<SYMST 


ALLOBLK*512> 


#2, LN 08 
#<SYM$C_ALLOBLK*512>, LNKSGL_SYMALLOC 
LLOC+4, NEWENTRY 


LNK$GL_SYMALLOC+ 

BLOCKSTZE, LNKS$GL LLOC 

BLOCKSIZE, LNKSGL~SYMALLOC+4 
NEWENTRY 


NEWENTRY, @SYMENTRY 


R?), R 
SYMENTRY, R6 
RO, @TARGSYMBOL, 4(R6) 


5(R7)CR6], SYMENTRY 
SYMENTRY, R6 


R7, 15(R6) 
R6, @DESCRADR 


<r 


Pete Se Se Ge Ge Ge Be Se Ge Fe Ge Se Ge Se Be Ge Ge Be Se Ge Ge Be 
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HASHINDEX = CHSRCHAR_A(POINTER) XOR_ .HASHINDEX; 
pres = ROT ( .HASHINDEX, THIRTEEN); 
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1042000 13-808-1 382 90:38:45 LINKER. SRCJLNKSYMTBL .B32; 1 «a 
: 25 5 GLOBAL ROUTINE LNKSSEARCHLOCAL (TARGSYMBOL, ENVINDEX, DESCRADR, SNBADR, ENVDESCADR) = 
; r ; BEGIN 
: 279 § i TARGSYMBOL IS ADDRESS OF AN ASCIC STR 
> 280 0390 2 ENVINDEX IS THE ENVIRONMENT THAT SYMBOL IS FROM 
: 281 0391 2: DESCRADR IS ADDRESS OF CELL TO RECEIVE THE ENTRY 
: Be 0 94 i ADDRESS IF SYMBOL IS IN TABLE 
: 28 : 9 i SNBADR IS ADDRESS OF CELL TO RECEIVE THE SYMBOL NAME BLOCK 
> 284 9% 2! ADDRESS IF SYMBOL IS IN TABLE 
> 285 0395 2 i ENVDESCADR IS ADDRESS OF CELL TO RECEIVE THE ENVIRONMENT 
: 86 0 % i DESCRIPTOR BLOCK ADDRESS OR 0 IF NOT DEFINED 
; 87 0 4 ; OR REFERENCED (OPTIONAL PARAMETER) 
: 289 99 2 MAP 
; 30 400 TARGSYMBOL : REF VECTORC,BYTE); 
: 29 0408 BUILTIN 
3 + eS NULLPARAMETER; 
: $3¢ 0405 2 BUILTIN 
PES 8 ee. 
> 298 0408 2 REGISTER 
; +4 ret HASHINDEX; 
: 301 0411 2 LOCAL 
: 30 0412 LONGWORDS, 
: 30 041 LEFTOVER, 
: 304 0414 MAPENT : REF BLOCKC,BYTE) 
: 305 0415 ENVDESC : REF BLOCK(,BYTE), 
: 306 0416 ENVNODE : REF BLOCKC.BYTE). 
; 0? 061? HASHTABLE : REF VECTORL,LONG), 
: 309 0419 PREVENTRY, 
; 310 04 0 POINTER; 
: 318 04 ; COMPUTE THE HASH INDEX 
: 32 0424 2 HASHINDEX = .TARGSYMBOL[O); | INITIALIZE THE HASH VALUE 
HE $e § tehlags.= asuiags MS 
. Ss e -— . 
: 13 04 § POINTER = TARGSYMBOL(1); ! SET CHARACTER POINTER TO INCLUDE STRING LENGTH 
: 18 4 8 INCR I FROM 1 TO .LONGWORDS DO 
; 31 BEGIN 
: 320 430 HASHINDEX = ..POINTER XOR .HASHINDEX; 
> 321 431 POINTER = .POINTER + 4; 
: 328 é HASHINDEX = ROT (.HASHINDEX NINE); 
> 324 INCR I FROM'1 TO .LEFTOVER DO 
: é 7 BEG! 
: 358 ri 
: 9 
: 330 
: 31 


—O0w 


oe 


HASHINDEX = (,HASHINDEX AND 2X"7FFFFFFF*) MOD SYMSC_TBLSIZ; ! THEN TAKE MODULO TABLE SIZE 
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1o28eb- 1882 99:28:85 «| cer SReSinesynton 692: 


FIND ENVIRONMENT SYMBOL HASH TABLE 


MAPENT = LNKSFNDENVMAP(.ENVINDEX) 
IF CENVNODE = .MAPENTCPMTSL “PSCDES)) NEQ 0 
EN NVDESC = .ENVNODE + NODESC_SHORT; 
HASH TABLE = .ENVDESCCNVDSL_SYMTBL; 


END 
ELSE BEGIN 

SHTABLE = .MAPENTCPMTSL_SYMLST); 
ENVDESC = 0; 


IF HASHTABLE EQL 0 
nen BEGIN 

NKSALLOBLK(SYM$C_TBLS12*4,HASHTABLE); ' 
CHSFILL( govmsc. TBLS12*4, .HASHTABLE); ' 


IF 
THEN aay enTepe VDSL_SYMTB 1 = ,HASHTABLE 
ELSE MAPENTCPMTSL_SYMLST » HASHTABLE ; 


IF NOT NULLPARAMETER(S) 
HEN .ENVDE DESC 
SYMENTRY = (HASHTABLEC.HA — 


pocare TABLE AND 
IT BEFORE USE 


); ! GET ADDRESS OF HASH TABLE ENTRY 


eee BEGIN 
PREVENTRY = .SYME ! REMEMBER PREVIOUS 
SYMENTRY = SYMENTRYCENBSL._ COLIST); ! POINT TO THE FIRS 


NOW COMPARE THE SYMBOL IN THE 
ENTRY FOR A MATCH, IF IT 1 ae RETURN ENTRY 


T ENTRY 


D OF LIST. SAVE ADDRESS OF LAST 
RY IN LIST FOR POSSIBLE SUBSEQUENT 
INSERT AND RETURN FAILURE. 


DO IF (CH_RESULT = CHSCOMPARE(.TARGSYMBOLCO], TARGSYMBOL[1), ! COMPARE SYMBOLS 
. SYMENTRYCSNBSB _NAMLNG, SYMENTRYCSNBST NAATCHeS 


Ormceceracarcaerececasasace 

™ 
. 

=s 
ma ~ 
zm — 
=> 
oO 
= 
m 
z 


THEN BEGIN MATCHE 
.DESCRADR = 5 SYMENTRY + .SYMENTRYCSNBSB NARLNGS ° SNBSC_FXDLEN; 
*SNBADR = .SYMENTR RETURN SYMBOL NAME BLOCK 
AND” VALUE BLOCK ADDRESSES 
ype TURN TRUE; i AND RETURN SUCCESS 
UNTIL (IF .CH_RESULT LSS 0 fae ! OTHERWISE, QUIT IF PAST THE SPOT 
SYRENTRY = ,PREVENTRY: ! RESET POINTER TO INSERT SPOT 
END 
ELSE BEGIN 
PREVENTRY = .SYMEN AVE PREVIOUS 
IF .SYMENTRYCSNBSL tOLISTI EaL 4 | IF AT END OF LIST 


a A ee ee ee eee ee ee 


LE _SYMSERINS 
V04=000 


0454 


53 


56 
56 


8F 


16 
18- Se “1 73 AX-11 Bliss-32 V4.0-7 Page 
1a-8ep- 1964 99:78:95 Aten aes nesVRtoL 682s ° 
499 5 THEN TRUE 
0 6 ELSE BEGIN 
: 6 SYHENTRY = .SYMENTRY CSNBSL_COLISTJ; ! LINK TO NEXT 
5 END 
03 Q ' END HE COLLISION LIST. 
RETURN FALSE; i THE ENTRY EXAMINED 
0908 i 1s RVED IN SYMENTRY 
050 END OF NON=-0 HASH TABLE ENTRY 
0510 ! END OF SEARCH ROUTINE 
OFFC 00000 ENTRY Renigenio Save R2,R3,R4,R5,R6,R7,RB, =; 
5B 00000000" EF 9E 0000 MOVAB SYMENTRY, R1 : 
56 04 8C 9A 0000 MOVZBL @TARCSYMBOL . HASHIN ; 
56 02 90 cr 000D EXTZV. #0, # ASHINDEX LEFTOVER ; 
52 56 FE BF 78 0012 ASHL #0, HAS SHIND EX, LONGWORD : 
5A 04 AC DO 0001 MOVL TARGS MB Rr16 ; 
51 01 AA 9E 0001B MOV 1(R1 Ob INTER : 
50 D4 OOO1F CLRL ; 
07 10 00021 BSBB $ ; 
56 1 gc 0023 1$: XORL2 (POINTER)+, HASHINDEX ; 
56 56 9 ¢ 90 6 ROTL #9, HASHINDEX, HASHINDEX ; 
F5 50 : F3 0002A 2$: AOBLEQ LONGWORDS, I, 1$ F 
04 000 CLRL i 3 
A 11 000 BRB $ : 
52 1 9A 00 : 3$: MOV ZBL (POINTER) +, R2 ; 
56 2 ge 0 XORL Re HASHINDEX ; 
56 56 op ¢ ROTL t gHASHINDEX HASHINDEX : 
F2 50 F 4$: AOBLEQ i. sie ; 
56 iF 0 EF 0004 EXTZV 4 T MASWINDEX. MA HASHINDEX ; 
90 56 1 7A 0004 EMUL SHINDEX, # ; 
6 BE 00000115 8F 7B OO004A DIV goer" (SP)+, hasninoex,. HASHINDEX : 
08 ac DD 3 PUSHL ENVINDEX ; 
000000006 99 gi F é CALLS #1, LNKSFNDENVMAP ; 
9 ) MOVL RO. MAPEN : 
58 69 ROVE or ENVNODE : 
57 A ag MOV (RB), ENVDESC ; 
6E 8 A p 69 ROVL (ENVDESC), HASHTABLE : 
6E 04 AS D 6f S$: MOVL §§ 4(MAPENT), HASHTABLE : 
57 D CLRL  ENVDESC ; 
E 03 75 6$: TSTL | HASHTABLE : 
7 BNEQ 8$ 3 
E po 79 PUSHL : 
soooooons ff ate rene : 
00 Ff: a § 2c moves SP) ar #1108, @HASHTABLE ; 
BF dS TSTL  ENVNODE : 


LNK_SYMSERINS 
v04=000 


; Routine Size: 


08 
04 


14 


01 


-—oO 
on 


Routine Base: 


Vow wim 
MESO LLM WL O FDO COVNOVA VEO OOM EMO 


Soc yesve OViLSOWN10O HMO SF SWOMELAXA ENO POSCocoeca 

7 ~Oo—909°0—-90 000 0-900—] moor wol[lo-—-c9T 00-00-00 --0— 
FF OWMO OWDLOOMMOOF VOPFOPOOWMOMOWUIT—O—-OW 
COOOOCSCOOOOSOSOSOOOSOOOOOOSOOSOOOOOOOOOOOOSOOSOOoOO 
[OOOO VOOCOOCOSOOOOSOOSOOSOOSOOSOOSOOSOOOOOOSOOSOOO 


OmnN AHHH MMMMMMoOCOVIVVOOOOWWwVTIIo,> 


FS SF OOW HM MODOLMOM OF LMM OVIVMD Oo 


om 


SCODES + 0122 


e0-1984 99:28:95 «Heiner SaeSiaesymtoL 6$2;1 


7$ 

HASHTABLE, 8(ENVDESC) 
WASNT AE. 4(MAPENT) 
AP), # 


(AP) 


ENVDESC, @ENVDESCAD 
@HASHTABLE NASHINDEX) . SYMENTRY 
SYMENTRY, RO 


7 R 
RO, 1(R10), #0, RS, 5(R4) 


7 

R? RESULT 
5(R5)CR4], @DESCRADR 
R4, ASNBADR 


13$ 
PREVENTRY, SYMENTRY 


R4, PREVENTRY 
(rd) 


14$ 
ine) SYMENTRY 


Pete Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se He Se Se Ge Se Se Se Se Se Be Se Se Se Ge Be Se Ge Ge Be Se 


a 


D 16 
LNK_SYMSERINS 16+Sep-1984 00:36: AX-11 Bliss-32 V4.0-74 
i a=800 etiae ts Pt a we Rea Tr Te PP 


> 40 11 1 GLOBAL ROUTINE LNKSUPCASE_D (DESCR) = 
: 49 1g BEGIN 
; 405 514 ' THIS ROUTINE UPCASES THE STRING DESCRIBED BY DESCR. 
: 406 0515 i 
: 407 216 MAP 
: 408 21 DESCR : REF BBLOCK; 
; 409 318 
: 410 51 BIND 
: ai) 09 9 BYTESTRING = .DESCRCDSCSA_POINTER] : VECTORC,BYTE); 
: “1g 09 : LOCAL 
: 414 5 CCHAR : BYTE; 
> 415 09 4 
: 416 525 2 IF .DESCRCDSC$W_LENGTH] NEQ 0 
> 417 09 § THEN INCRU I FROM 0 TO .DESCRCDSCS$W_LENGTH] - 
> 418 5 DO IF (CCHAR = .BYTESTRINGL.1))GEQU ZASCII ‘a’ 
>: 419 0528 AND .CCHAR beQy ZASCII ‘2° 
: 420 09 ; THEN BYTESTRINGL.1] = .CCHAR = 32; 
; £53 0531 RETURN TRUE 
; 423 0532 1 END; 
001¢ 00000 .ENTRY LNKSUPCASE_D, Save R2,R3,R4 
50 04 aC 00 00002 MOVL DESCR, RO 
60 B 9006 TSTW 
2A 13 0000 BEQL © 4$ 
54 $0 3¢ 900A MOVZWL (RO), R4& 
4 07 0000 DECL R4 
51 D4 0000F CLRL 
1¢ 11 00011 BRB $ 
5 04 B041 9A 00013 1$: MOVZBL 4 (RO)CIJ, R2 
5 28 90 0 18 MOVB 2, CCHAR 
61 BF 91 1B CMPB ; 
¢ 1F OOO1F BLSSU 
7A —soSF 91 1 CMPB CHAR, #122 
6 1A 3 BOTY 
04 B041 53 83 000 SUBB3 #32, CCHAR, a4(RO)CIJ 
1 D6 0002D 28: INCL =I 
54 1 pi 99 F 3$: CMPL R4 
DF 8 2 BLEGU «1 
50 01 p 0034 4$: MOVL #1, RO 
4 00037 RET 


Routine Size: 56 bytes, Routine Base: $CODE$ + 0224 


1 GLOBAL ROUTINE LNKSUPCASE_C (STRINGADR) = 
BEGIN 


3 
3 
§ i THIS ROUTINE UPCASES THE ASCIC STRING POINTED TO BY STRINGADR 
8 


MAP 


RRRRRS 
OONAUE 


16 
1-00-1964 04:56:92 YAKCHI BLisg-82 v4.0-742. 


LNK_SYMSERINS 
vO4=300 


; : ° 278 STRINGADR : REF VECTORC,BYTE); 
: 43e 24) ¢ LOCAL 
> 4 46 CCHAR : BYTE; 
> 434 54 
; 435 544 IF Ag hl la gt a 
>; 436 545 THEN INCRU ieoaba ADRCO) 
3 6357 0546 dO IF VlchaRe = sTRi NGADRL.1]) GEQU ZASCII ‘a’ 
; 438 0547 AND .CCHAR LEQU Masti i “‘_ 
3; 439 0548 THEN STRINGADRL. iy = .CCHAR = 32; 
; 440 549 
3 441 229 RETURN TRUE 
3; 442 551 END; 
000C 00000 sENTRY LNKSUPCASE_C, Save R2,R3 
52 04 BC 9A 00002 MOVZBL @STRINGADR; R2 
se 13 S008 BEQL 4$ 
50 1 pO 0000 MOVL “i, I 
1¢ 11 00008 BRB 
51 04 BC40 9A 00000 1$ MOVZBL a@STRINGADREIJ, R1 
53 2} 90 Berg MOVB » CCHAR 
61 SF 191 4 CMPB ° 
O¢ 1f 00019 BLSSU_ 2$ 
7A CBF 91 0001B CMPB CCHAR, #122 
7. pei pote 2s 
04 BC40 53 83 1 $UBB #32, CCHAR, @STRINGADREI) 
D6 00027 ¢: INCL I 
52 D1 88 9 3$: CMPL 1, ® 
dF 18 C BLEGU i$ 
50 01 DO OOOZE 4$: MOVL #1, RO 
04 00031 ET 
; Routine Size: 50 bytes, Routine Base: $CODE$S + 025C 
; 443 0552 0 END ELUDOM 
H PSECT SUMMARY 
3 Name Bytes Attributes 
: SOWNS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; S$GLOBALS 12 NOVEC, wate RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SCODES 654 NOVEC, *NOWRT RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


LNK_SYMSERINS -Sep-1984 00:36: AX-11 Bliss-32 V4.0 Page 16 
iu=000 15: gen-1984 99:28:98 LINKER.SRC LNKSYMTBL. o 2;1 ° (6) 
H Library Statistics 
; Goanees SGROLE Sreenese Pages Processing 
: File Total Loaded Percent Mapped Time 
ne $255$DUA28 8: :ESYSLIBISTARLET. .L32;1 9776 6 : 581 00:01.0 
> —~$255$DUA28:LLINKER.OBJJDATBAS. (32:1 538 11 28 00:00.4 
$ COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LNKSYMTBL/OBJ=OBJ$:LNKSYMTBL MSRC$:LNKSYMTBL/UPDATE=(ENHS$:LNKSYMTBL) 
; 654 code + 16 data bytes 
un Time: 00:14.6 


3 phe Time: 00:44.9 
3 Lines/CPU Min: 2266 

3 Lexemes/CPU-Min: 14751 

3 nee Used: 111 pages 
3 a 


; Compilation Complete 
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